unit ukapsule;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
type
  Tkapsule = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnKey(var MSG: TWMKeydown); message WM_KEYDOWN;
  end;

var
  kapsule: Tkapsule;

implementation

{$R *.dfm}
uses main;

procedure Tkapsule.OnKey(var MSG: TWMKeydown);
begin
  //showmessage('key');
  //showmessage(inttostr(msg.charcode));
  //zapamietujemy charcode, sciagany przez valuestimer z regulatorami
  mainform.OnKey(MSG);
end;

end.
